home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 43 / Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso / -in_the_mag- / workbench / sql / sqldb / rexxmacros / sqltest.rexx < prev    next >
OS/2 REXX Batch file  |  1999-06-29  |  939b  |  32 lines
  1. /* sqltest.rexx */
  2. options results
  3. address 'SQLserver'
  4. say 'Got Server'
  5. 'ExecSQL' "open table salesreps;"
  6. 'ExecSQL' "declare testcur cursor for select from salesreps;"
  7. 'ExecSQL' "open testcur;"
  8. say 'About to fetch 1'
  9. 'ExecSQL' "fetch next of testcur;"
  10. say 'fetch_buf = ' result
  11. /* say 'sqlca.sqlcode = ' sqlca.sqlcode */
  12. say 'About to fetch 2'
  13. 'ExecSQL' "fetch next of testcur;"
  14. say 'fetch_buf = ' result
  15. /* say 'sqlca.sqlcode = ' sqlca.sqlcode */
  16. say 'About to fetch 3'
  17. 'ExecSQL' "fetch next of testcur;"
  18. say 'fetch_buf = ' result
  19. /* say 'sqlca.sqlcode = ' sqlca.sqlcode */
  20. say 'About to fetch 4'
  21. 'ExecSQL' "fetch next of testcur;"
  22. say 'fetch_buf = ' result
  23. /* say 'sqlca.sqlcode = ' sqlca.sqlcode */
  24. say 'About to fetch 5'
  25. 'ExecSQL' "fetch next of testcur;"
  26. say 'fetch_buf = ' result
  27. /* say 'sqlca.sqlcode = ' sqlca.sqlcode */
  28. /* say 'sqlca.sqlerrmsg = ' sqlca.sqlerrmsg */
  29. 'ExecSQL' "close testcur;"
  30. 'ExecSQL' "close table salesreps;"
  31.  
  32.